home *** CD-ROM | disk | FTP | other *** search
/ Fifty: Elektronik / FIFTY Elektronik (PS_Computer_Vertrieb).iso / ps8 / fty1017 / gepackt.exe / DISK2 / PLOTSRC.EXE / MODI.INC < prev    next >
Encoding:
Text File  |  1993-11-10  |  1.4 KB  |  57 lines
  1. Procedure Read_LoetStop;
  2.  
  3. Const  SubWinCol  :Byte =Crt.Blue+16 * Crt.LightGray;
  4.        SubHeadCol :Byte =Crt.Black+16* Crt.LightGray;
  5. Var    Sel :Byte;
  6.        Sub_Win      : WindowType;
  7.        TC:Char;
  8.        S:Str15;
  9.        K:Integer;
  10.  
  11.  
  12. Begin
  13.   SaveCrtWindow;
  14.   SaveColors;
  15.   If Not Modeco80 then
  16.     begin
  17.        SubWinCol:=Crt.LightGray*16;
  18.        SubHeadCol:=SubWinCol;
  19.     end;
  20.   With Men_mode do
  21.    MakeWindow(Sub_win,Picture.X1+3,picture.Y1+2,28,3,SubWinCol,wok);
  22.   With Sub_win do
  23.     Window(X1+1,Y1+1,X1+width-2,Y1+height-1);
  24.   MakeFrame(Sub_win,SubWinCol,1);
  25.   WriteToWindow(sub_win,3,1,SubHeadCol,' Durchmesser-Zugabe ');
  26.   WritetoWindow(sub_win,24,2,SubHeadCol,'mm');
  27.   PutWindow(Sub_win,wok);
  28.   SetEditColors(blue,Lightgray,Crt.White,blue);
  29.   LoetStopPlus:=LeseReal(LoetStopPlus,5,3,1,0.0,2.0,TC);
  30.   RestoreWindow(Sub_Win,wok);
  31.   DeleteWindow(Sub_win);
  32.   RestoreColors;
  33.   RestoreCrtWindow;
  34. End;
  35.  
  36. Procedure SetModus;
  37. Var Sel :Byte;
  38.     tmp :WindowType;
  39.  
  40. begin
  41.    tmp:=men_mode.picture;
  42.    PutWindow(tmp,wok);
  43.    ActualHelp:=91;
  44.    GotoXY(1,25);ClrEol;
  45.     sel := GetMenueChoice(men_mode,wok);
  46.     Case Sel of
  47.       1 : PlotModus:=Standard;
  48.       2 : Begin
  49.               PlotModus:=LoetStop;
  50.               Read_LoetStop;
  51.             End;
  52.       3 : PlotModus:=Bestueck;
  53.       4 : PlotModus:=TestPlot;
  54.     End;
  55.     RestoreWindow(tmp,wok);
  56. End;
  57.